From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 12 Jun 2004 10:32:44 +0000 (+0000)
Subject: (Fdefun): Signal an error if NAME is not a symbol.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22024
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d3ce428a42721343e3ab0e9038e23b7a7a4e0094;p=emacs.git

(Fdefun): Signal an error if NAME is not a symbol.
---

diff --git a/src/eval.c b/src/eval.c
index e1da1def446..096755f9c77 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -617,6 +617,7 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...)  */)
   register Lisp_Object defn;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   defn = Fcons (Qlambda, Fcdr (args));
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);